home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / M3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-04-15  |  512 b   |  25 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "AREA OF A POLYGON"
  3. 20   PRINT 
  4. 30   DIM X(25),Y(25)
  5. 40   PRINT "NUMBER OF VERTICES (ENTER 0 TO END PROGRAM)";
  6. 50   INPUT N
  7. 60   IF N = 0 THEN 230
  8. 70   FOR I = 1 TO N
  9. 80   IF I > 1 THEN 110
  10. 90   PRINT "COORDINATES OF VERTEX ";I;
  11. 100   GOTO 120
  12. 110   PRINT "               VERTEX ";I;
  13. 120   INPUT X(I),Y(I)
  14. 130   NEXT I
  15. 140  X(N + 1) = X(1)
  16. 150  Y(N + 1) = Y(1)
  17. 160  A = 0
  18. 170   FOR I = 1 TO N
  19. 180  A = A + (X(I) + X(I + 1)) * (Y(I) - Y(I + 1))
  20. 190   NEXT I
  21. 200   PRINT "AREA =";ABS (A) /2
  22. 210   PRINT 
  23. 220   GOTO 40
  24. 230   RUN "MATH"
  25.